home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / EasyPLUGINs / examples / popasl_demo.e < prev    next >
Encoding:
Text File  |  1998-02-10  |  3.3 KB  |  112 lines
  1.  
  2. ->MODULE '*popasl',
  3. MODULE 'easyplugins/popasl',
  4.        'tools/exceptions','tools/easygui',
  5.        'utility/tagitem'
  6.  
  7.  
  8. PROC main() HANDLE
  9. DEF mp:PTR TO popasl_plugin,mp2:PTR TO popasl_plugin,mp3:PTR TO popasl_plugin
  10.  
  11. NEW mp.popasl([PLA_PopAsl_Contents, 'PROGDIR:',
  12.                PLA_PopAsl_GadgetID, 10,
  13.                PLA_PopAsl_Type, PLV_PopAsl_Type_Drawer,
  14.                PLA_PopAsl_ButtonOnRight, TRUE,
  15.                TAG_DONE])
  16.  
  17. NEW mp2.popasl([PLA_PopAsl_Contents, 'SYS:Daten/',
  18.                PLA_PopAsl_GadgetID, 12,
  19.                PLA_PopAsl_Type, PLV_PopAsl_Type_File,
  20.                TAG_DONE])
  21.  
  22. NEW mp3.popasl([PLA_PopAsl_Contents, 'topaz.font/8',
  23.                PLA_PopAsl_GadgetID, 14,
  24.                PLA_PopAsl_Type, PLV_PopAsl_Type_Font,
  25.                PLA_PopAsl_NoFontExtension, TRUE,
  26.                TAG_DONE])
  27.  
  28. easyguiA('PopAsl Test',
  29.          [ROWS,
  30.             [COLS,
  31.                [PLUGIN, {getstring2}, mp, TRUE],
  32.                [BUTTON, {toggle}, 'T', mp],
  33.                [BUTTON, {clear}, 'C', mp],
  34.                [BUTTON, {getstring}, 'G', mp]
  35.             ],
  36.             [COLS,
  37.                [PLUGIN, {getstring2}, mp2, TRUE],
  38.                [BUTTON, {toggle}, 'T', mp2],
  39.                [BUTTON, {clear}, 'C', mp2],
  40.                [BUTTON, {getstring}, 'G', mp2]
  41.             ],
  42.             [COLS,
  43.                [PLUGIN, {getstring2}, mp3, TRUE],
  44.                [BUTTON, {toggle}, 'T', mp3],
  45.                [BUTTON, {clear}, 'C', mp3],
  46.                [BUTTON, {getstring}, 'G', mp3]
  47.             ],
  48.             [EQCOLS,
  49.                [SBUTTON, {toggleall}, 'Toggle All', [mp,mp2,mp3]],
  50.                [SBUTTON, {resetall}, 'Reset All', [mp,mp2,mp3]],
  51.                [SBUTTON, {getstrings}, 'Get Strings', [mp,mp2,mp3]]
  52.             ]
  53.          ]
  54.         )
  55.  
  56. EXCEPT
  57.    END mp
  58.    report_exception()
  59. ENDPROC
  60.  
  61. PROC toggle(mp:PTR TO popasl_plugin, info)
  62.    mp.set(PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  63. ENDPROC
  64.  
  65. PROC toggleall(l:PTR TO LONG,info)
  66. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  67.  
  68.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  69.  
  70.    mp.set (PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  71.    mp2.set(PLA_PopAsl_Disabled,Not(mp2.get(PLA_PopAsl_Disabled)))
  72.    mp3.set(PLA_PopAsl_Disabled,Not(mp3.get(PLA_PopAsl_Disabled)))
  73.  
  74. ENDPROC
  75.  
  76. PROC clear(mp:PTR TO popasl_plugin, info)
  77.    mp.set(PLA_PopAsl_Contents, '')
  78. ENDPROC
  79.  
  80. PROC resetall(l:PTR TO LONG,info)
  81. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  82.  
  83.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  84.  
  85.    mp.set (PLA_PopAsl_Contents, 'PROGDIR:')
  86.    mp2.set(PLA_PopAsl_Contents, 'SYS:Daten/')
  87.    mp3.set(PLA_PopAsl_Contents, 'topaz.font/8')
  88.  
  89. ENDPROC
  90.  
  91. PROC getstring(mp:PTR TO popasl_plugin, info)
  92.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  93. ENDPROC
  94.  
  95. PROC getstrings(l:PTR TO LONG,info)
  96. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  97.  
  98.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  99.  
  100.    PrintF('\n+-----------------------------------------------\n')
  101.    PrintF('| Drawer=''\s''\n', mp.get(PLA_PopAsl_Contents))
  102.    PrintF('| File  =''\s''\n', mp2.get(PLA_PopAsl_Contents))
  103.    PrintF('| Font  =''\s''\n', mp3.get(PLA_PopAsl_Contents))
  104.    PrintF('+-----------------------------------------------\n')
  105.  
  106. ENDPROC
  107.  
  108. PROC getstring2(info, mp:PTR TO popasl_plugin)
  109.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  110. ENDPROC
  111.  
  112.